<%
Set Conex = Server.CreateObject (ADODB.Connection)
Conex.Open BancoDados,  ,  
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open "SELECT * FROM TabClientes", Conex, 3, 3
%>
(...)
sql = "SELECT * FROM Produtos WHERE CodProd =  " & CodDigitado & "  "
RS.Open sql, conexao, 3, 3
If RS.EOF then
Response.Write "Cdigo inexistente no cadastro!"
End if
%>
(...)
sql = "SELECT * FROM Produtos WHERE CodProd = ' " & CodDigitado & " ' "
RS.Open sql, conexao, 3, 3
Response.Write "Foram encontrados " & RS.RecordCount & " registros"
%>